#!/usr/bin/perl

# use module
use XML::Simple;
use Data::Dumper;

# create object
$xml = new XML::Simple;

# read XML file
$data = $xml->XMLin("data.xml");

# print output
print Dumper($data);

$xmlout = new XML::Simple;
$xmlout = $xml->XMLout($data,noattr => 1,RootName=>'queue');

print Dumper($xmlout);
